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In the September installment, we talked about the different data types 
available in Basic09. We even defined our own complex data type: TYPE 
Employee-Name:STRING[25]; Street:STRlNG[20]; City:STRING[lO]; Zip:REAL: 
Sex:BOOLEAN; Age:BYTE 

It is pretty obvious from our defined complex data type above, that a full 
blown database program could be put together by passing our TYPE 
Employee variables between several small basic09 procedures. 

There are several key components to a database. The goal here is to 
break down the creation of a database mto individual procedures, write a 
main core procedure and then systematically write individual procedures 
to expand the program. We'll call our database program Personal Database 
System or PDS for short. 

To begin with, we will need a main menu, internal to PDS. This main 
menu will call all the procedures listed. 

In this month's installment, 1 will include the code for Menu, View, Create, 
and Add. The following TYPE statement must be the first line in any procedure that will directly access the records 
in the database (most of them): 

TYPE address=FNarae:STRING[lO]; LName:STRING[l5]; address 1:STR1NG[20]; address2:STRlNG[20]: city:STRING[15]: 
state:STRlNG[2]: zip:STRING[10]; phone:STRlNG[14] 

This TYPE statement is different than our earlier defined TYPE but a little more practical for a standard "rolodex" 
type database. 

MAIN MENU: 
PROCEDURE PDS 

This procedure will display the current record and database name by calling the VIEW procedure. It will also allow 
movement through the database up and down records and calling of the other procedures/functions. This 
procedure is also responsible for closing the database. 

REM Personal Database System - Main Procedure 

DIM Top,Current:lNTEGER 
DIM DBPath.OutPath:BYTE 
DIM DBName:STRlNG[32]; Menu:STRING[l]; Prmter:STRING[5] 
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DIM tenipstr;STRlNG[2] 

Pnnter-"/'p" 

DBName-'Untilled" \Top-0 \Currenl-0 \DBPath=0 

REPEAT 

RUN View(DBPath,Currenl,DBNanie) 

PRINT 

PRINT "Main Menu: " \ PRINT 

PRINT "<C>reale database <0>pen database pac<K> database" 

PRINT "<A>dd record <D>elele record <E>dit record" 

PRINT "<F>ind record Find <N>ext record <S>ort database" 

PRINT "<P>rint database Print <L>abeis <W>rile to file" 

PRINT "E<x>il program" \ PRINT \ PRINT "Menu Choice: "; 

5 RUN inkev(Menu) \ IF Menu-"" THEN 5 



c" THEN RUN CreateDB(DBPath,Current, DBName) \ ENDIF 
o" THEN RUN OpenDB(DBPath,Top,Current, DBName) \ ENDIF 
a" THEN RUN AddRec(DBPalh,Top,Current) \ ENDIF 
d" THEN RUN DelRec(DBPath,Top.Current) \ ENDIF 
e" THEN RUN EditRec(DBPath,Current) \ ENDIF 
f" THEN RUN Search(DePath,Current,TRUE) \ ENDIF 
THEN RUN Search(DBPath,Currenl,FALSE) \ ENDIF 



IF Menu="C" OR Menu- 

IF Menu="0" OR Menu- 

IF Menu="A" OR Menu= 

IFMenu="D" OR Menu= 

IF Menu="E" OR Menu- 

IF Menu-"r" OR Menu- 

IF Menu="N" OR Menu=": 

IF Menu="P" OR Menu="p" THEN 

ON ERROR GOTO 100 

OPEN |OutPath,Pnnter:WRITE 

RUN PnntDB(DBPath,Top.OutPath) 

CLOSE #OulPalh 
ENDIF 
IF Menu="L" OR Menu-"!" THEN 

ON ERROR GOTO 100 

OPEN lOutPath.PnnterWRITE 

RUN PrintLB(DBPath,Top,OutPalh) 

CLOSE lOutPath 
ENDIF 

IF Menu="K" OR Menu="k" THEN RUN PackDB(DBPath,Top) \ ENDIF 
IF Menu="S" OR Menu="s" THEN RUN SortDB(DBPath,Top) \ ENDIF 
IF Menu="W" OR Menu="w" THEN RUN WnteRec(DBPath,Top) \ ENDIF 
IF Menu=CHR|(10) or Menu=CHR|(8) THEN Current-Current- 1 \ REM Down/Left arrow 

IF Current=0 ttien Current- 1 \ ENDIF 

IF Current— 1 then Current-0 \ ENDIF 
ENDIF 
IF Menu-CHR|(12) OR Menu-CHR|(9) THEN Current=Currenl+l \ REM Up/Right arrow 

IF Current>Top THEN Current-TOP \ ENDIF 
ENDIF 
10 UNTIL Menu="X" or Menu="x" 

IF DBPalhoO THEN CLOSE fDBPath \ ENDIF 
END 

100 PRINT CHR$(12) \ PRINT \ PRINT \ REM Clear Screen 
PRINT "ERROR - " 

PRINT " Cannot open printer port: "; Pnnler 
PRINT \ PRINT \ INPUT "Press <Enter> to conlinue",tmpstr 
GOTO 10 

VIEW RECORD: 

PROCEDURE View 
View will display the current database name, record number and record contents. It is smart enough to 



recognize when Ihere are no records in Ihe database and when it's looking at a deleted one. 

TYPE address=FName;STRlNG[lO]; LName:3TRlNG[15]; address! :STRL\'G(20]; address2:STRlNG[20]; citv:STRING[l5] 
state:STRlNG[2]; zip:STRlNG[iO]; phone:STRlNG[l4] 

PARAM DBPath:BYTE; Top;lNTEGER; Current:lNTEGER; DBName:STRlNG[32j 
DIM red:address 

PRINT CHR^(12) \ REM Clear Screen 
PRINT "Current Database: ■'; DBName \ PRINT 
PRINT "Record number: "; Current 

IF Current=0 THEN PRINT \ PRINT \ PRINT \ PRINT \ PRINT \ PRINT \ PRINT \ GOTO 10 \ ENDIF 
SEEK |DBPath,(Current-l)*SlZE(rec) 
GET #DBPalh,rec 
PRINT 

PRINT rec.FNarne; " "; rec.LName 
PRINT rec. 
DIM rec:address 

SEEK #DBPath,SIZE(rec)*(Current- 1) 
GET IDBPath.rec 
PRINT 

PRINT rec.FNarne; " "; rec.LName 
PRINT rec.addressl 
PRINT rec.address2 

PRINT rec. city; ", "; rec.stale; " "; rec. zip 
PRINT "Phone: "; rec.phone 
PRINT \ PRINT 
10 END 



PROCEDURE CreateDB 

This procedure will create a database of a specific name and return its path number (in DBPath) and the "current' 
record in Current (obviously zero). 

PARAM DBPath:BYTE; Current:lNTEGER; DBName:STRING[32] 
DIM Option:STRING[l] 

Current=0 
ON ERROR GOTO 100 

PRINT \ INPUT "Enter new database name: ".DBName 
10 CREATE #DBPath,DBName:UPDATE 
END 

100 IF ERR-218 THEN \REM Error 218 - File already exists 
PRINT CHR|(12)\ PRINT \ PRINT 
PRINT "File: "; DBName; " already exists" 
PRINT \ PRINT "Overwrite (Y/N)'' "; 
200 RUN inkey(Oplion) \ IF Option^"" THEN 200 
IF 0plion="Y" OR Option="y" THEN 
SHELL "del "+DBName 
GOTO 10 
ENDIF 
ELSE 
PRINT CHR$(12)\ PRINT \ PRINT 
PRINT "Error "; ERR; " has just occurred." 
INPUT "Press <Enter> to continue",Option 
ENDIF 
END 
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ADDJECQfiD: 

PROCEDURE AddRec 

This procedure will allow a record lo be added at. the end of the specified path and then increment the Top value 
and update the current record pointer. 

TYPE address-FName:STRlNG|10j: LName:STRlNG|15|: addressl:STRlNG[20); addre?s2:STRlNG120J: citv;STRlNG[15J; 
slate:STRlNG[2l; zip:STRING[lO]; phone:STRiNG[l4] 
PARAM DBPalh:BYTE; Top:lNTEGER; CurrentJNTEGER 

DIM tinp:STRlNG[32j; tmpreciaddress 

IF DBPalh=0 THEN END \ ENDIF \REM No valid output path 

PRINT CHR|(12) \ PRINT "PDS - Add Record to open database:" 
\ PRINT \ PRINT 
10 INPUT "Enter first name: ",tmp 

IF LEN(lmp)>10 THEN 10 

tmprec.FNanie=inip 
20 INPUT "Enter last name: ",tmp 

IF LEN(tmp)>15 THEN 20 

tmprec.LNanie=lmp 
30 INPUT "Enter first address line: ",tmp 

IF LEN(tmp)>20 THEN 30 

tmprec.addressl=tmp 
40 INPUT "Enter second address line: ",tmp 

IF LEN(tmp)>20 THEN 40 

tmprec.address2= tmp 
50 INPUT "Enter cilv name: ",tmp 

lFLEN(lmp)>15THEN50 

tmprec.city^^lmp 
60 INPUT "Enter state name: ",lmp 

IF LEN(tmp)>2 THEN 60 

tmprec.state=tmp 
70 INPUT "Enter zip code: ",tmp 

IF LEN(tmp)>10 THEN 70 

tmprec.zip=lmp 
80 INPUT "Enter phone number: ",tmp 

IF LEN(tmp)>14 THEN 80 

tmprec.phone=lmp 

Top=Top+l 

SEEK |DBPath,(Top- l)*SlZE(tmprec) 

PUT #DBPath,tmprec 

Currenl=Top 

END 

THAT'S IT FOR THIS MONTH! To type in the procedures above, make sure Basic09 (merged with INKEYS, SYSCALL, GFX, 
GFX2) is in your commands (CMDS) directory, then type in the following from the 0S9 prompt: 

0S9>basic09 

B:edil PDS 
Now type in the Main Menu procedure PDS. Remember that the Basic09 Editor operates the same as the 0S9 Line 
Macro Editor. You must leave a space between the prompt and the line of text. When you finish entering the PDS 
listing, enter q at the basic09 editor's "E" prompt. 

E:q 
m Ml ENTER A SPACE FIRST. This will quit the edit mode. If you typed in any mistakes, they will be listed at this 
time with their address locations and the error types. You'll have to go back and find your mistakes. The listing 
must be error free. 



After you have entered all four procedures (error free), run tlie program: 
B;run PDS 



HOMEWORK ASSIGNMENT: 

The next most obvious procedure that needs to be written is one that will open the database records that vou 
create. After all, what good does it do vou to create a database and not be able to view it the next time you turn 
on your computer'^ 

OPE N DA TABASK: 

PROCEDURE OpenDB 

PARAM DBPath:BYTE; Top:lNTEGER; Current:lNTEGER; DBName: STRING[32] 

This procedure will open a database of a specific name and return its path number (in DBPath), the highest record 
number (in Top) and the current record (in Current). It will be necessary to read the entire database to determine 
the highest record number so that the top value can be returned to the main procedure for use in other procedures. 
The current value is not really important here and can be set to any value from 1 to Top. 

Additional optional features: 

1. A list of available files would be a nice touch for an open menu. 

2. Since the entire database will have to be read to determine the last record number, it would be a good 
opportunity to use a RAM disk if available. As it reads the disk version, it could write it to the RAM disk, then return 
the path number of the open RAM disk file to the main procedure. This would require an additional parameter so 
the main procedure will know to update the disk version before it exits. 

If you have any questions, pull out your 0S9 Level Two System Manual and start reading the Basic09 section. 

Divvy ncnn n n n 

nil I i iNumber: Optional Border Color 
nil I iNumber: Optional Background Color 
nil INumber: Optional Foreground Color 
llllNumber Of Riaht/Bottom Windows (1 Or 2) 
lllNumber Of Left/Top Windows (l Or 2) 
IlLetter Horizontal Or Vertical Division (H Or V) 
iNumber Type of Screen (1,2, 5 thru 8) 



Public Domain 
Reviews . . . 

by Rodger Alexander 

DIVVY - by Mike Shook 

This is a windowing utility that you cannot be without 
if you have more than 128K of memory. Divvy will create 
multiple windows on one screen, or more correctly, it 
will create multiple overlay windows "on the fly" with an 
active shell in each overlay. 

Besides all of the "cool" things you can do with 
multiple windows on one screen, think of the really 
practical advantages of having multiple screens/proc- 
esses. I find it extremely useful when I'm writing an 
article like this one. 

For example, while I am using a text editor to write a 
review on a particular piece of software on one window 
using the lower half of the screen, Pm also viewing the 
documentation file for that software on a second window 
on the upper half of the screen. 

I use to accomplish the same thing by toggling between 
two windows pressing the CLEAR and SHIFT- CLEAR keys. 
Better than MS-Dos, but still a pain. I could accomplish 
double overlay windows with multivue, but that was a bit 
of a hassle too. 

Not only does Divvy create up to four overlay windows, 
but you can also specify optional colors. 

The command line options are as follows: 



POP Version 4.4 by Chris Swinefurth 

•This is another "on the fly" windowing utility. By 
simply typing "pop" from the 0S9 prompt, a new 80 
column text window is created with a window number 
label across the top of the screen. Each new "poped" 
window has different colors. Options are also available 
to "pop" VDG windows and select your own colors. An 
accompanying popconfig file makes it possible to change 
the default settings. 

CMPFIX - by Roger Krupski 

This is a handy httle utility to have around, especially 
if you are one of those type who is always modifying 
binary programs. What this program does is to create a 
MODPATCH script file from your CMP output. Use CMPFIX 
instead of CMP to compare the original program with 
your modified version: 

CMPFIX original < modified > CMPfile 

MODPATCH < CMPfile 

MELT - by Andy DePue 

This one is just for fun and it does just what the name 
says... it melts! Well, actually the program itself does 



not melt... il niells your text screen. And after the 
screen is dead and §one, it does it's best to restore ttie 
screen' You1l get a big kick out of ttiis one. 

ALIAS -by Tim Koonce (Tim Kientzle) 

This is definitely not a new program, but oflen over 
looked by 0S9^ers due to a misconception. This program 
does not only create a new command name in your 
execution directory that executes an already existing 
command file, but it includes the specified options. 

AUAS Is dir e 
Creates Is which executes dir with the "e" option. Is is 
now the same as dir e. 

FREE - by Tim Kientzle (Tim Koonce) 

This is a replacement for the Microware FREE com- 
mand with several added features. FASTER; Up to 4 
limes faster than the original free command. USER 
FRIENDLY; Outputs relevant information in kilobytes, 
rather than in sectors, and decimal instead of hexadeci- 
mal. Also give total disk usage as a percent of the disk 
capacity. Options are available to force the output to be 
in bytes, sectors, clusters, or megabytes. USER FRIENDLY 
INPUT; Will accept device names with or without a leading 
slash, or directory names such as "." Will accept 
multiple device names on a single command line. 
OS9>free/dO/dl /d2 

Device Capacity Available Used %Full Volume Name 
/DO 360 265 94 26% "DISTO HDBoot" 
/Dl 180 10 169 94% ''UT1LITY6A" 

/D2 720 483 236 32% "HDSYS.DEFS.LIB'* 



0S9> FREE /HO 
Device Capacity Available 
/HO 40.992 29.922 



Used %FulI Volume Name 
11.069 27%"40MegHD" 



KFORMAT - by Kelly Thompson 

KFORMAT was written to make it easy to formal a slew 
of disks. 11 allows you to select a single name for all the 
disks to be formatted, and allows you to select all format 
options (number of sides, tracks, etc.) II allows you to 
format any number of disks that you like, so it is even 
useful for formatting a single disk in a particular way, 
he nce you don't have to look up how to do it. 

Kelly's Handy Formatter 

Loading OS- 9 FQRUAT command... 

Please fiU in the following infonnation: 
(Default vBluea flash !) 

Enter device to format [eg. /dd, /fO, etc.] : 

Enter number of sides (1 or 2] : 

Enter number of tracks (cylinders) |35. 40, etc.] : 

Logical format only? [Y/Nj ; 

!f you are formattmg more than one disk: 
Should all disks have the same name? [Y/N] : 



KFORMAT really shines when you want to format several 
disks. Ask you know, formatting a double-sided 40 (or 
80) track disk can lake a while! So, if you would like to 
leave the room. ...turn up the volume! KFORMAT will 
" whistle " at you when it's ready for the next disk. 
Literally! 

JTMENU - by Jim Hollier 

JTMENU is a menuing interface for hard drive systems 
(or floppy) permitting you to create on-screen menus to 
make accessing and executing program applications and 
utilities so simple that even your 5 year old will have no 
problem with 0S9. Unlike other "MENU" programs that 
read script files that you create with a text editor, 




^■^■■■■■■■■■■^■i^lB^ir 

JTMENU has it's own built in formatted editor that 
prompts for each line of entry. PLUS you are not hmited 
to only 3 or 4 shell command lines. This allows you 
much more power and flexibility. A complete text of 
instruction and sample script command files is provided 
from within the menu. Help file options for each menu 
item is possible and password protection for each menu 
screen or individual file is optional. 

JTFM - by Jim Hollier 




This is a file management program in which the data 
directory is listed in a window on the left side of the 



screen and a list of command options is displayed in a 
window on Ihe right side of the screen. Between the two 
windows if a file stat (fstat) display of the file that is 
pointed at in the left wmdow. That's nice! But the real 
value of this file manager is the ability to mark multiple 
files to be copied or deleted or attributed or moved. 
WOW! 

This program is so simple yet complete, you might 
want to consider using it as a "new user" interface for 
the 0S9 operating system. OR. as a complete 0S9 utility 
application. 

XLED - by Brad Bobak 

Another text editor'^ YES it is. YES it does have the 
standard options such as block commands and global 
search and replace commands, etc. However, the one 
additional feature of this text editor over all other is 
that it can be set to Programming Mode which will cause 
auto-indentation when using keywords like: j, If, While, 
Begin) 













SURFACE CHECK UTIUTIES: 

I've run across three utilities of this type. STEST by 
Bruce Isted. DSCAN2 by E.R. Anderson and Tom Birt, and 
SCAND by Paul Pollock. DSCAN version 2.0 is the most 
attractive on the screen and is written in C, but SCAND, 
written in Basic09 is 5 times faster, reading a 720K 
floppy m just over 2 minutes. On the other hand, STEST 
runs 4 test on each sector and operates at a rate of 12.5 
minutes per MegaByte on a hard drive or 2.5 hours / 
MegaByte on a floppy. DSCAN2 runs at 12 minutes/720K 
floppy. The DSCAN2 archive also includes a text file 
"B1TMAP.DOC" that explains how to use a disk editor to 
modify your bitmap so 0S9 will not write to sectors that 
have gone bad since the initial format. 

SDUMP ~ by Marie-Louis Marcoux 

This program is designed to run in background (sdump 
k) when started. Pressing SHIFT/CTRL/ALT keys simul- 
taneously activates the dump of the current text window 
(80 or 40 columns) to the printer. 



MD - by Tom Birt 

If you're running 0S9 Level Two on a color monitor. 
you'll love this one. This public domain utility is very 
similar to microware's MDIR, except it's "color coded '. 
The SYSTEM modules are purple. DRIVERS are in £reen 
(fhckering). DESCRIPTORS are m yellow, MANAGERS are m 
white, PROGRAMS are in turquois. SUBROUTINES are m 
red and DATA files are in green (non-fhckering). You 
can even specify a module name to be highlighted as a 
search aid. It's even faster than MDIR! What more can ! 
say? You gotta get this one! 



Hi -Speed Upgrade 



by Mark Johnson 



1 found out about this upgrade through the OS-9 echo 
on our local fido-net bulletin board, Columbia Hts. BBS 
(206-425-5804). The modification to your coco is 
simple: replace the original crystal on the CoCo mother- 
board with a 32MHz crystal. That's it! Almost too simple 
to be true... but it works! 

One problem with the upgrade though is that it wont 
work on a television. The RFl unit will only go to 1.78MHz 
and that's why 1 think Tandy limited the CoCo's speed. 
There are also some reports that it is supposed to cause 
some troubles on some monitors, but people were 
putting diodes or something on the monitor cord to 
clear it up. On the CM-8 RGB monitor that Tandy sells, 
it is supposed to work fine with the upgrade. It worked 
ok for me and another member of our Longview/Kelso 
CoCo Club. Also someone got the RFl unit working by 
using both crystals. They put the old, slower crystal in 
the RFl unit itself so the screen updates would be at the 
old speed while the new 32MHz crystal replaced the old 
crystal on the motherboard ran the rest of the system 
at a full 2MHz. 

- Mark Johnson;Columbia Hts. BBS - 
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•fragmentation 

0S9, as a disk-based operating 
system, is constantly moving files 
between main memory and your 
hard or floppy disks. The part of 
0S9 that is responsible for disk ac- 
cess is called RBF ~~ short for 
Random Block File manager. 

RBF keeps track of where data 
IS stored on your disks. It does this 
by dividing each disk into three 
regions: 

1) The IDENTIFICATION SECTOR. The 
information in this region tells 0S9 
what type of disk you are using. 

2) The ALLOCATION BITMAP. Each bit 
in this region represents one or 
more disk sectors. A set bit indi- 
cates that the sectors are being used 
to store data; a clear bit indicates 
that the sectors are available for 
storing additional data. Called ABM 
for short. 

3) The FILE SYSTEM. Defines direc- 
tories, files, and the data stored in 
each file. 

As you can see, each of these 
regions serves a unique and essen- 
tial purpose. Most computer disk 
systems, from CoCo BASIC to UNIX to 
large mainframe computers, keep 
track of data by similarly dividing 
their disks. 

The ABM and file system change 
shghtiy every time you create, mod- 
ify, or delete a disk file. When a file 
is created, 0S9 searches the ABM for 
an unused area of the disk and 
places the file there; 0S9 also sets 
additional ABM bits to indicate that 
the area is now m use. Extending 
the file causes 0S9 to set more ABM 
bits; shortening the file clears the 
ABM bits for parts of the disk that 
are no longer needed. All of a file's 
ABM bits are cleared when the file is 
deleted. 

Most of the ABM bits are zero 
on a blank, newly formatted disk. As 
you use the disk, the ABM and file 
system are revised over and over 
again. The ABM eventually becomes a 
random pattern of set and cleared 
bits. 

0S9 must search through this 



I'aiidom ABM pattern whenever it 
creates or extends a file. Since the 
pattern is random, its "even odds" 
that when a cleared bit is finally 
located, the next bit will be set. If 
0S9 needs to extend the file by more 
than a few sectors, the unused 
sectors chosen by RBF are pretty 
likely to be scattered all over the 
disk! 

This scattering effect is called 
FRAGMENTATION. There aren't any 
significant good results of fragmen- 
tation, but there are several bad 
ones: 

1) 0S9 must record the location of 
each sector used by a file in a part 
of the file called a FILE DESCRIPTOR 
SECTOR (FDS). The FDS contains as 
many as 48 "segments", each of 
which is represented by a starting 
disk address and a sector count. 
Each time 0S9 encounters a set bit 
in the ABM, it must start a new file 
segment by searching for a cleared 
bit. Once a file has 48 segments, 0S9 
can't make the file any larger -- 
even if each segment is only a single 
sector! 2) A file's segments may 
be scattered all over the disk. 0S9 
must constantly move the disk 
heads back and forth across the disk 
as it moves from segment to seg- 
ment. The resulting overhead slows 
down disk access significantly, 
3) All of that head motion creates 
excessive wear on your disk drive's 
mechanical parts. 

Minor fragmentation is a natu- 
ral side effect of disk operation, but 
when left untreated it gets worse 
and worse until an individual file or 
disk is stored in the most inefficient 
way possible. 

Common Fragmentation Myths 

Many people believe that they 
have a fragmentation problem when 
there is a significant difference be- 
tween the number of free sectors on 
a disk and the size of the largest 
free block (as reported by DCHECK). 
The truth is, the size of the largest 
free block has very little to do with 
the amount of disk fragmentation 
until it falls below about 2% of the 
device capacity. It's the size of the 



other, smaller blocks that's more 
important, and DCHECK won't tell 
you about these. Several public 
domain utilities that better display 
fragmentation are available through 
the electronic information services. 
Another common myth is that you 
can eliminate fragmentation by 
backing up a disk, reformatting, and 
restoring. This is only true if you 
use a file-bv-file backup utility; 
device-based ^ltllltles like BACKUP 
and HDB won't effect fragmentation 
at all. In addition, a certain amount 
of uncorrectable fragmentation is 
created by ABM bits set to conceal 
media defects. DSAVE, FBU, and 
HDKIT are typical file~by-file back- 
ups that can be used to reduce or 
eliminate fragmentation. 

If you have two hard drives, you 
may be tempted to try to save time 
by using BACKUP to copy one drive 
to the other, then reformatting and 
using DSAVE to get rid of the frag- 
mentation. This practice sometimes 
works, but it is dangerous if the two 
drives have different defective areas: 
BACKUP may destroy some data by 
copying it to a defective sector. 

The three most reliable meth- 
ods for reducing or ehminating 
fragmentation are: 

1) If you have a spare hard drive, 
FORMAT it and mount it on your 
system. Then DSAVE your main drive 
over to the spare drive, and 
reformat the main drive. Now you 
can DSAVE t,he spare drive back to 
the main drive, eliminating frag- 
mentation in the process. 

2) For single drive systems, use a 
file-by-file backup utility to save 
the contents of the drive to multiple 
floppy disks. Then reformat the 
drive and restore it from floppies. 

3) Use a hard disk optimizer (e.g. 
REPACK) to repack the disk without 
reformatting or saving to floppies. 

Symptoms of Extreme Fragmenta- 
tion 

When 0S9 displays ERROR 217 
(Segment list full), this indicates 
that a file has reached the built-in 
fragmentation limit of 48 segments. 
Your disk itself may not be badly 



fragmented; you can find out by 
Lrying lo reduce the file's fragmen- 
tation. Do this by renaming the file, 
copying it. to it's old name, and 
deleting the renamed version. If 
you're lucky and the disk isn't badly 
fragmented, the copy wdl have fewer 
segments than the original. Other- 
wise, it may be lime to defragment 
the disk using one of the above 
procedures. 

ERROR 248 (Device full) when 
running EZGen, Cobbler, Config, or 
0S9Gen is another symptom of frag- 
mentation; this error means that 
0S9 couldn't find any group of clear 
ABM bits large enough to create a 
single-segment file. The disk may 
actually be full, or it may be badly 
fragmented. When DCHECK shows 
that a device's largest free block is 
smaller than about 2% of the 
device's capacity, the device may be 
badly fragmented. This is especially 
true if the total number of free 
sectors is much larger than 2% of 
capacity. 

Summary 

Fragmentation is a natural side 
effect of disk operation. It is caused 
by the constant rearrangement of 
disk data as files are created, modi- 
fied, and deleted. 

Three problems caused by 
fragmentation are disk errors (e.g. 
"Segment List Full", "Device Full"), 
slower disk access, and increased 
mechanical wear. Although device- 
based backups don't effect frag- 
mentation, you can reduce or elimi- 
nate it by periodically backing up 
and restoring your hard drive, or by 
using a hard disk optimizer pro- 
gram. 
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0S9 Community Network International 

The "0S9 Community Network Internalional" is getting organized and 
several of our subscribers and local 0S9'ers are actively involved. In the 
August issue 1 reported that a NEW "0S9 Users Group" was starting up to 
replace the old "039 Users Group". Since that report three months ago, 
Constitutions and By Laws have been written and the new name should advert 
some confusions in regards to the original 0S9 Users Group. 

1 suspect the "Network" will be very successful due to it's dependency on 
the FidoNet system available on RiBBS Bulletin Boards. FidoNet is truly an 
international telecommunications networking system, and almost every 
major city in North America has one or more Bulletin Boards lied into 
FidoNet (except Bellingham). 

The goals of the 0S9 Community Network Internalional are to unify, foster, 
promote, improve, further and enhance, through its membership, high 
standards of perfection, efficiency and cooperation between all phases of the 
OS-9 6809, OS-9 68000 and OS-9b00 Operating Systems, heremafter referred 
lo as the 0S~9 Operating System; to do all such lawful acts and things 
necessary to further the best interests of the Network, and to formulate, 
determine and coordinate policies of mutual and international import and 
concern for such industry. 

An 0S9 Community Network International Newsletter, the "0S9 Community 
NelNews" will be posted on the CoCo and 0S9 echos on FidoNet. Besides 
informational articles about 0S9, the "NelNews" will include official meeting 
notices and serve as the official voice of the organization. 

Below is a list of current officers. 1 did not list all of the officers/ 

coordinators/librarians, only the board of directors and the individuals that 

are relevant to us. 

Officers: 

International Coordinator: John Wight (FidoNet 1:345/200) 

Secretary: Nancy Ward FidoNet 1:106/941 

Internalional Co-Coordinator: Don Vaillancourt (FidoNet 1:250/610) 

International Librarian: Kevin Backs (FidoNet 1:163/239) 

Ne-wsletter Editor: Richard Lorbieski (FidoNet 1:106/941) 

International Network Rep: Bill Nobel (FidoNet 1:140/26) 

Regional Librarians: 

Region 11: Kerry Kowalski (FidoNet 1:154/888) l0S9 Newsletter Subscriber! 
Region 17: (Wa. State) Mark Johnson (Columbia Hts. BBS) |0S9 Newsletter 

Subscriber! 
Region 17: (British Columbia) Charies West 

Regional Coordinators: 

Region 17: Dennis Mott (FidoNet 1:346/9) jDataWarehouse BBS Sysopj 



Kerry Kowalski, better known as "Rocky" lives in Whitlaw, Wl. If you have 
any questions and/or would like further information about the 0S9 Commu- 
nity Network International, give Dennis Mott a call and leave a message on his 
BBS. His phone number is (509) 325-6787. Mark Johnson can be contacted 
on the Columbia Hts. BBS at (206) 425-5804. 

Since the 0S9 Newsletter is not associated with "the Network" our 
information is limited, but we will try to keep you posted as best we can. If 
you are really interested, call your local FidoNet BBS and register through 
the CoCo or 0S9 echos. 
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Xmodem Padding Problems 

- Delphi 0S9 S]g - 

Several people on the SIG have mentioned having 
problems after downloading binary files from Bulletm 
Boards when using XMODEM or YMODEM download prota- 
col programs under 0S~9. 

The problem lies in the fact that XMODEM/YMODEM 
sends 128/1280-byte blocks of information at a time. 
When the end of the file is reached, any "short" block 
(less than 128/1280 bytes in length) is padded with some 
"invisible" character such as control-Z's, spaces, or 
nulls. This padding cause 0S9 to reject the file as bad 
because the module header is incorrect, making 0S9 
think that the file is longer than the header says it 
should be. 

The solution is simple: 

1) Use ATTR and give the file the executable attribute 
(e). 

2) Use the LOAD command and load the file into 
memory. 

3) Use the SAVE command and save the file back to the 
disk using a new filename. 

4) Use DEL and RENAME to get rid of the long file and 
rename the new file. 

5) Use UNLINK to "unload" the file from memory. 

That's iti 

Level-I Modpatch Files 

In the September issue of the Newsletter, page 
5, was an extensive article on using MODPATCH 
for modifying 0S9 Level-2 programs. However, 
the response 1 have received from several sub- 
scribers has been..,. "What about Level-] 
patches". Who uses Level-] anymore'? Well, 
obviously there are several subscribers who are 
running OS-9 on CoCo-l's and CoCo-2's. So 
here are a couple of necessary MODPATCH files 
for Level-]. 

CC3D1SK: 

Since Tandy's version of OS-9 Level-] doesn't 
really pay attention to the drive descriptors, the 
standard disk patches have to be made to the 
CCDISK driver module. 

In the following patch files, insert the appro- 
priate hexadecimal values for the desired re- 
sults. Do not type in comments in parenthesis. 
Track step rates: ]2=20msec, ]I = 12msec. 





'b AdMies 



BeJJJnghain 0S9 Users Forum - Longmw/KeJso CoCo CJuh 
ML RaJnier CoCo CM - Fori OVoCo CM - Seattle 68xxx Mug 



Seattle 68xxxMUG 

The Seattle 68xxxMUG has it's monthly meeting on the 
lop floor of Gugenheim Hall on the University of Wash- 
ington Campus the first Tuesday of each month at 7:30 
p.m. At the November 5th meeting, Donald Zongker 
brought his Tandy Color Compuler-3 that was very 
recently installed m a horizontal baby AT PC case. Very 
compact with 3 floppy drives and 2 hard drives. All of 
the I/O port jack on the back were the standard DIN jack 
used on the back of the Color Computer so no adapters 
were needed. 

A quick demonstration on the short comings of HOME 
PUBLISHER and the lack of support for Tandy's new DMP- 
135 printer was informally conducted, with a little input 
from everyone. Tandy's only response on using the 
DMP-135 with HOME PUBLISHER was to select the DMP- 
105 printer and set the parameters for 3 column mode 
and the DMP-135 would print 2 columns. The workable 
solution seems to be using a Disto 3-in-l interface with 
the parallel printer output to the DMP-135, then selec- 
tion one of the IBM printer drivers and setting the DIP 
switch on the DMP-135 to IBM mode. 

Scott Honker then look over the meeting and pre- 
sented his 4th installment on writing a Basic09 database. 
This session was to feature the presentation of the 
different procedures that individuals were assigned to 



write. Unfortunately most of those members who had 
procedure assignments were not in attendance (they 
skipped class), so we were not able to see their work, 
although Scott did bring along his finished assignments 
as did Rodger, and we got a chance to see the new 
modules perform. ...Rodger's crashed! 

The December meeting will feature another presenta- 
tion of new Public Domain Utilities and Applications and 
hopefully a presentation of the "missing" BasicOQ pro- 
cedure files from our truant members. 
- Rodger Alexander - 



Longview/Kelso CoCo Club 

The Longview/Kelso CoCo Club will have their next 
meeting on December 10th at 7:00 and we will be setting 
up a FidoNet point/node address at the meeting. Also we 
plan on doing a bunch of 2MHz upgrades for the CoCo 3. 
In case you haven't heard about it yet, all you have to 
do it replace the clock crystal with a 32MHz crystal and 
Ihats it. Although you may have some inlerfence on a TV 
and maybe a little interference on some monitors but 
the Tandy CM-8 has worked excellent so far without a 
glitch one. 1 just tested it and got about a 15% increase 

- Mark Johnson - 



No reports available from: Bellingham 0S9 Users Forum, 
Ml. Rainier CoCo Club and Port O'CoCo Club. 



10=6msec. 

Track seek rates: 42=20msec, 41 = 12msec, 
40=6iT]sec. 

Head restore rates: 02=20msec, 01 = 12nisec, 
00=6msec. 



CCDisk.pat 

1 ccdisk 

lf9 13 XX 

Iff 22 02 

20b 04 41 

20c 40 42 

2dd 43 XX 

c 2e8 03 XX 

c 2f9 aO 20 



(insert desired step rate) 
(shorten command settle delay) 
(DO double sided) 
(Dl double sided) 
(insert desired seek rate) 
(insert desired head restore rate) 
(shortn motor-on time delay) 



Drive Descriptors: 

Even though Tandy's version ignores the de- 
scriptors for all of the above information, it does 
look to the descriptors for the number of tracks. 
Therefore, it is necessary to patch the drive 
descriptor to change the track rates. The patch 
is the same for all drives (DO, Dl, D2, etc.). 



DO.pat 

IdO 

c 18 23 28 



(change to 40 trackt^ 



Now simply type: modpatch ccdisk. pat and 
modpatch dO.pat to modify these two boot mod- 
ules. To make these modifications permanent. 
cobbler a new svstem disk. 



Washington Slate BBS List 

FAR POINT BBS - Seattle 
RiBBS (Fido NET) 
(206) 285^8335 

COLUMBIA HTS. BBS - Longview/Kelso 

RiBBS (Fido NET) 

(206) 425-5804 

DATA WAREHOUSE BBS - Spokane 

RiBBS (Fido NET) 

(509) 325-6787 

BARBEQUED RIBBS - Bellingham 

PCBOARD (PC-NET) 

206) 676-5787 Conference #5 
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OS-9 TACOMA BBS - Tacoma 

RiBBS (Fido NET) 

(206) 566-8857 

COCO EXPRESS BBS - Anacortes 

RiBBS (Fido NET) 

(206)293-1057 
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Bellingham OS-9 Users Group 
presents . . 
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Scdtt Honalcear & Radaer Alexander 

Mail 12 + $1 shipping fee lo: 
3404 Illinois Lane, Bellingham, WA 98226 




34B4 Illinois Lane 
Bellingham, UA 98226 



